Sub ȡѡеԪԪַ()
    Dim DR   As Range
    Set DR = Application.InputBox(Prompt:="ѡԪԪ", Title:="Excel֣", Type:=8)
    MsgBox DR.Address, , "ѡСѡԪԪ"
    
    'MsgBox ActiveSheet.Range(DR.Address), , "ѡһԪʱȡֵ" 'ѡжԪʹ
    
    
End Sub
